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ont 

es 04 1 BEGIN 

3 5 005 1! 

3 § 00 } | gianna alata hai ane 
° -* e 
3 8 0008 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY « 
s o 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
: 19 Bare : :* ALL RIGHTS RESERVED. . 
: \§ pots 1 is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
$ 1 01 1 t* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGH TICE. THI OFTWARE OR ANY OTHER * 
s 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
$ 16 gotg 1 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: \? tA : . TRANSFERRED. 7 
: 19 0019 1 it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 st 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: gl Q0¢1 1 is CORPORATION. : 
; $¢ 00 ¢ 1 is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; $e 85 ¢ : i: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
: 26 0026 1 is * 
3 sf 34 : Vee RRR AAAAAAAAAEARAAEAA AAA AEAEAA RAAT ERARAAAAAAAAAERAEEAEES 
3 <9 0029 1 i+ 

3 0 0030 1! 

: H oo) : FACILITY: MTAACP 

3 0038 1 i ABSTRACT: 

3 4 0034 1! This routine checks that the access requested is allowed on the 

3 H B82 : volume set. 

; 37 0037 | ENVIRONMENT : 

: 39 0039 1: Starlet operating system, including privileged system services 

: 7 Bpee : and internal exec routines. 

: 4@ 0042 1 i-- 

; a Bote} 

; | «6465 boes 1: 

: $8 apes ; : AUTHOR: D. H. Gillespie, CREATION DATE: 17-MAY-77 09:30 

: 48 0048 i MODIFIED BY: 

: 50 01 V03-006 LMP0246 L. Mark Pilant 22-May-1984 10:10 

i. 0051 1! Correct a bug introduced by LMPO221. The UCB and PCB addresses 
: 38 0038 : : were swapped in the EXESCHKxxxACCES routine calls. 

; § 054 1: V03-005 MMD0286 Meg Dumont, 10-Apr-1984 14:14 

, 3 bnae 7! Fix to the SMTACCESS returns where ACCESS signe get 

—; i 026 1! over written with a success code before all the 

3 57 0057 1! error conditions were checked. Fix to set the VCB 


cece ACCES : COMMON_CALL NOVALUE, ! check access 


ESS 
048 CHECK_FILE_ ACC : COMMON-CALL NOVALUE, ! check access to file 

HECK_WRITE_ACCESS : COMMON_CALL, ' check users’ write access 
CHECK-READ_ ACCESS : COMMON-CALL, ' check users’ write access 
Sel FILE_ACCESS : COMMON-CALL “NOVALUE, | Set VCB file access 

ECALC “ers REC : COMMON-CALL NOVALUE; ! recalculate start record 
LINKAGE 

CHECK_PROT = JSB sg 3 E34 = 4 i = 5) 
NOPRESERVE (1 : 


EXTERNAL ROUTINE 
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1 b,. -1984 02:09:19 AX-11 Bliss-32 V4.0-74 Pa 
16- Sep-1984 9 08:42 MTAACP.SRCICHKACC.B32; 4 7 a8 

O36 ! } FIL_ACCESS bit in KERNEL mode. : 
01! v03=004 LMPO2 ark Pilan 28-Mar-1984 10:21 : 
061 1! thange, uc ycget _ownuic to ORBSL POUNER and UCB$W_VPROT to : 
nae a 7 
ite 1 i v03-003 MMD0274 neg Dumont 23-Mar-1984 9:48 : 
0065 1! Change the processing of the menos tert ise character fields : 
B96 7 in the HDR1 Label to call the installat ; 
067 1! moost ie acoeen tabi tas routine. The return from this : 
068 1! routine , seteraines the users access to the file. This $ 
534 13 module has also been ghenged to support the bit 3 
070 1! veBSV wai ACCESS which set to determine hotest ; 
Bort : H VMS protection is valid for the file. : 
0073 1: v03-002 mMD0239 21-Feb-1984 10:11 : 
Bore : : Change calls to EX SCHKENXACCES to kernel mode calls. : 
0076 1! v03-001 MMD0150 Meg Dumont, 26-Apr-1983 8:51 : 
0077 1! Change reference to 80 to the symbol PANS! LBLSZ. Change : 
pore : reference to 240 to the "found CRATCH_OFFSET. : 
0080 1! v02-007 pMw00032 David Micahel Walp 18-Aug-1981 : 
ooes : Looked at MVL Override Bit when override option is used : 
0088 ; V02-006 REFORMAT Maria del C. Nasr 30-Jun-1980 F 
0085 1: A000S =MCNO003 Maria del C. Nasr 15-Oct-1979 9:29 : 
Opes ; Add HDR3 Ay : 
0088 1! A0004 MCNO001 aria del C. Nasr 13-Sep-79 11:05 F 
0089 1! Corrected bug in’ ‘Create if’ function : 
0090 1! 3 
0091 1 jee : 
0092 1 F 
iad ; LIBRARY ‘SYSS$LIBRARY:LIB.L32'; : 
0095 1 REQUIRE "SRCS:ATADEF .B32"; : 
0480 1 FORWARD ROUTINE ; 
1 eo 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
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EXESCHKWRTACCES : ADDRESSING_MODE (ABSOLUTE) CHECK_PROT, 

EXESCHKRDACCES : ADDRESSING_MODE (ABSOLUTE) CHECK~PROT, 

GET_RECORD; ! get current record tape is reading 
9 EXTERNAL 


io request packet 


' address of current ucb 
' address of status to return to user 


! address of current 
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GLOBAL ROUTINE CHECK_ACCESS (ACCESS_TYPE) : COMMON_CALL NOVALUE = 


144 
' 


i FUNCTIONAL DESCRIPTION: 
This routine checks that the access requested is allowed on the 
volume set. 


CALLING SEQUENCE: 
CHECK_ACCESS(ARG1) 
| 


! INPUT PARAMETERS: 
ARG1 = access requested (0=read,1=write) 


! IMPLICIT INPUTS: 
10_ PACK 


1 T - address of current i/o packet 
} CURRENT_UCB - address of current ucb 
OUTPUT PARAMETERS: 
None 
IMPLICIT OUTPUTS: 
None 
ROUTINE VALUE: 
None 


SIDE EFFECTS: 


one 
USER ERROR: 
SS$_WRITLCK = software write lock 


BEGIN 
EXTERNAL REGISTER 
COMMON_REG; 
LOCAL 
STATUS; ' jo status 


! If file is software write locked and the user requests write privileges, 
! deny privilege 


IF .ACCESS_TYPE 
-BBLOCKCCURRENT_UCBCUCBS$L_DEVCHAR], DEV$V_SWLJ 
ERR_EXIT(SS$_WRITLCK); 
! If the VCBSV_FIL_ACCESS is set then the user has complete 
! access to this file, regardless of how the VMS protection is 
! set. Else check the users read adn write access to the file. 


IF WOT CURRENT VCBLVCESY FIL ACCESS) 
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Routine Base: 


; Routine Size: 


Boe p=1984 
ene e= 1 Gb. 93:28 


IN 
IF .ACCESS_TYPE 


THEN 
ELS STATUS = KERNEL_CALL (CHECK_WRITE_ACCESS) 
STATUS = KERNEL_CALL (CHECK_READ_ACCESS); 
IF NOT .STATUS 
THEN 
BEGIN 
USER_STATUS = .STATUS<O, 16>; 
ERR_EXIT(); 
END; 
! end of 
TITLE 
- IDENT 
~EXTRN 
~EXTRN 
EXTRN 
-EXTRN 
ePSECT 
0000 00000 ENTRY 
OE 04 AC €E9 00002 BLBC 
50 0000G CF D0 00006 MOVL 
AO 01 €1 00008 BBC 
025C 8F BF 00010 CHMU 
AB 06 EO 00014 1$ BBS 
OA 04 aC €E9 00019 BLBC 
7E D4 00010 CLRL 
5E DD OOOTF PUSHL 
0000V CF 9F 00021 PUSHAB 
08 11 00025 BRB 
7E D4 00027 2$: CLRL 
5E 0D B88 9 PUSHL 
0000vV CF 9F 00028 PUSHAB 
oF 03 FB QOO2F 3$ CALLS 
07 23 E8 4 3 BLBS 
CF 50 B0 MOVW 
00 iH 338 3 CHMU 
4 00040 4$ + RET 


SCODES + 0000 
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routine 


EXESCHKWRTACCES 
EXESCHKRDACCES, GET RECORD 
CURRENT_UCB, 10_PAC 
USER_STATUS, TOSS CARANL 


SCODES,NOWRT,2 

CHECK ASCE SS - Save nothing 
ACCESS T 4 
CURRENT: UCB; RO 

#1, 59(RO), 

#664 

#6 Stqusaeny VCB), 4$ 

Access YPE, 2$ 


sp 
cx une acts 


Pe 
svete geen ACCESS 
#3, SSTMKRNL 


S ares 
STATUS, USER_STATUS 
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ROUTINE CHECK_WRITE_ACCESS : COMMON_CALL = 


lee 
' 
! FUNCTIONAL DESCRIPTION: 
This routine calls the system routine to check users write access. 


— 3 2 


CALLING SEQUENCE: 
CHECK _WRITE_ACCESS (), called in kernel mode 


INPUT PARAMETERS: 
none 


IMPLICIT INPUTS: 
CURRENT_UCB = address of tapes ucb 
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i 
! 

i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' OUTPUT PARAMETERS: 
None 
i 
i 
1 

i 
i 
i 
i 
i 
i 
i 
le 


.EXTRN SCHSGL_PCBVEC 


O7FC 00000 CHECK_WRITE_ACCESS: 

“WORD Save R2,R3.R4,R5,R6,R7,R8,R9,R10 : 0576 | 

51 000000006 9F 00 9900 MOVL §a#SCH$GL_PCBVEC, Ri : 0620 
0 00 MOVL 10_PACKET, RO : 
| 

| 


; 195 ] 

; 39 1 

3 38 1 

; 1 

; 200 1 

; 201 ! 

: $08 : 
; 204 1 ; 
; 205 ! : 
3 $9 1 F 
; 208 1 3 
; 209 1 C 3 
; 19 ' IO_PACKET = address of current io request : 
: 21 1 | : 
; 18 1 | : 
$ 14 1 ; 
s 215 1 IMPLICIT OUTPUTS: : 
3 18 : None | : 
; 218 1! ROUTINE VALUE: ; 
; 219 06 1 STATUS from call ; 
5 $9 0601 1 $ 
3 1 06 ¢ 1 SIDE EFFECTS: - 
: $$ 06 1 i : 
: 2 06 1 USER ERROR: : 
: 226 0605 1 | 3 
3 #22 B06 1 !e- 3 
3 $58 0607 1 3 
3 sf 0608 BEGIN 3 
3s 2a 0609 | 5 
3 $3 0610 EXTERNAL REGISTER é 
3 0611 COMMON 2 | 3 
; 2351 B6t¢ 3 
r $36 061 § LOCAL 2 
3 Hi Role PCB : REF BBLOCK; ' address of user process control block : 
; $3¢ 0616 EXTERNAL F 
3 $39 0617 SCHSGL_PCBVEC : REF VECTOR ADDRESSING_MODE (ABSOLUTE); F 
Bs gor pets ! system PCB vector : 
3 239 Oe 9 PCB = .SCHSGL_PCBVECC.(10_PACKETCIRPSL_PIDJ)<0,16>); ; 
; 341 06 § RETURN EXESCHKWRTACCES(.PCB, .CURRENT_UCB); $ 
: 242 06 1 ND; : 


000G CF D 


; Routine Size: 


36 bytes, 


0 


61 
0000G CF 


5 
000000006 9F 


Routine Base: 
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O7FC 00000 CHECK_READ ACCESS: 


-Sep-1984 TAACP.SRCIJCHKACC.B32; (4) 

; te : ! ROUTINE CHECK_READ_ACCESS : COMMON_CALL = ; 
: 26 § 1 tee ; 
; 24 1} ; 
; rf 3 1 ! FUNCTIONAL DESCRIPTION: $ 
3 r?4 , ! This routine returns users’ read access to the file. ; 
3 1 1 1 ! CALLING SEQUENCE: ; 
; ¢ $e § : CHECK_READ_ACCESS(), called in kernel mode : 
; 4 0654 1 ! INPUT PARAMETERS: 3 
3 5 iano none 3 
; : 1; : 
3 1 ! IAPLICIT INPUTS: : 
; 38 8 1! CURRENT _UCB = address of tapes ucb ; 
; 9 9 1! IO_PACKET = address of current io request : 
HY 61 41 1 ! OUTPUT PARAMETERS: : 
; o¢ § 1! None : 
>; 26 Rye 1! : 
: 64 44 1 ! IMPLICIT OUTPUTS: ; 
; 265 0645 1! None 3 
> 266 Boss 1! : 
3 267 0647 1 ! ROUTINE VALUE: ; 
: 268 0648 1! STATUS from call ‘ 
; 269 0649 1! 3 
: 270 0650 1 ! SIDE EFFECTS: : 
: 271 0651 1! : 
; LG; 8026 1 ! USER ERROR: : 
Py 7 065 1 ! | e 
: 274 0654 1 !-- ; 
3 ar? 0655 1 : 
3 26 0656 BEGIN 3 
3; er 0657 : 
3; ere 0658 EXTERNAL REGISTER : 
; 279 0659 COMMON_REG; | ; 
; 280 0660 : 
; 281 0661 LOCAL : 
3 3g Roee PCB : REF BBLOCK; ! address of user process control block | : 
3 84 0664 EXTERNAL . 
; 85 0665 SCHSGL_PCBVEC : REF VECTOR ADDRESSING_MODE (ABSOLUTE); ‘ 
: 286 266 ! system PCB vector : 
: $88 66 | 
: 3 3 PCB = .SCHSGL_PCBVECC.(10_PACKETCIRPSL_P1D])<0,16>]; : 
: 90 $690 RETURN EXESCHKRDACCES(.PCB, .CURRENT_UCB); ; 
> 291 0671 ND; ; 
-WORD Save R2,R3,R4,R5,R6,R7,RB,RI,RI0 : 0624 : 

51 000090006 9F 00 99002 MOVL  a#SCHSGL_PCBVEC, ‘RI ; 0668 ; 

0 000G CF D0 00 MOVL 10_PACKET, RO ; ; 
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EXTERNAL ROUTINE 
: COMMON CALL, ' check that file has expired 
LIBSCVT_DTB : ADDRESSING_MODE (ABSOLUTE), 


Www 
OM 


: 95 ne } GLOBAL ROUTINE CHECK_FILE_ACC (ACCESS_CALL) : COMMON_CALL NOVALUE = 
; 33 676 1 t+ 

; 298 677 1! 

: 299 ots 1 ! FUNCTIONAL DESCRIPTION: 

; 00 679 1! This routine checks access to the file. if accessibility code is 
; 301 Oo 1! not blank and not overridden then access is denied. If writing to the file the file 
; 0¢ 1 ; } must be expired. 

: 304 ; 1 ' CALLING SEQUENCE: 

; 305 6 : } } CHECK_FILE_ACC(ARG1) 

; oF 6 i cath: i ae kote Lled f MTA_CREATE 

3 ! - eing called from 

: 14 +4 : 1- If called from MTA_ACCESS 

: 311 0690 1 | IMPLICIT INPUTS: 

$ \§ 91 1! LOCAL _FIB = copy of user's file information block 
: 1 Rone ! CURRERT_VCB = address of current control block 
: 315 0694 1 | OUTPUT PARAMETERS: 

; 0695 1! None 

; 3 b696 1! 

3 18 069 1 ! IMPLICIT OUTPUTS: 

; 319 0698 1! None 

3 0 0699 1! 

: 1 0700 1 ! ROUTINE VALUE: 

3 ¢ 701 1! None 

3 rs 1! 

3 4 70 1 ! SIDE EFFECTS: 

; $2 Ae : if append, tape is positioned to end of data 

; $$ 706 1 | USER ERROR: 

; 328 707 1! SS$S_FILACCERR - file access byte non-blank 

; $3 708 1! 

5 09 1 !-- 

3 1 10 1 

: $ 13 BEGIN 

: ig EXTERNAL REGISTER 

; 5 13 COMMON : 

: } 

; Hi 

; 18 

3 0 

3 

; rs 

; 0 
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0 ' convert decimal to binary 
1 SPACE _EOF : COMMON_CALL, ' space to trailers 
§ SPACE_TM : COMMON_CALL, } space given number of 
: ape marks 

: READ_BLOCK : COMMON_CALL; ! read on mag tape data block 
$ CAL 

ACCESS ' users’ access to the file 
8 BLOCK_CouUNT, i block count of file to 
9 ! appended to . 
50 CURRENT_RECORD, ' record tape drive is reading 
51 FIB : REF BBLOCK, ! address of local fib 


errs 
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LABELADDR : REF BBLOCK, ! address of label 

STATUS, 

™ ' number of tm's 

ORB : REF BBLOCK, i ORB address 

MVL : REF BBLOCK 

MVL_ENTRY : REF BBLOCKVECTOR be MVLSK LENGTH); 

' Hointer to the MVL ENTRY 

EXTERNAL 

HDR1 : REF BBLOCK, ' address of wget ceor TD Label 

LOCAL_F 1B BELOCK; i copy of user's fib 


! setup pointer to fib 
FIB = LOCAL_FI186; 
! get a handle on the MVL entry 


MVL = .CURRENT_VCBCVCBSL_MVL); 
MVL_ENTRY = (.CURRENT_VCB C VCBSL_MVL ]) + MVLSK_FIXLEN; 


Call the accessibility system service to check the accessibility char 
on the HDR! Label. 

First keep the record that the UCB is reading. The accessibility 
routine can not move the tape from under us! Thus we will compare 
this to the field after the call and if the tape was moved we punt 
the operation. 


ORB = .CURRENT_UCBCUCBSL_ORB) 
CURRENT_RECORD™= KE RNEL C CALL (GET RECORD, . CURRENT_UCB); 
ACCESS = SMTACCESS(LBLNAM 
UIC = .0 ORBCORBSL Ow 
STD VERSION LOUNERD STDVER), 
ACCESS_ CHA 
ACCESS—S Pee = MTASK_NOCHAR, 


TYPE = MTASK_INHOR1); 


STATUS = KERNEL_CALL(GET_RECORD, .CURRENT_UCB); 
IF .CURRENT_RECORD NEQ .STAT 
THEN ERR_EXIT(SSS$_ TAPEPOSLOST) ; 


IF .ACCESS EQL SSS$_FILACCERR 
THEN 


cure LycoCycesy OVRACC) 

-MVL RRERT_VCBCVCBSW_RVNJ), 
THEN ERR EATy (338. FILACCERR); 

— = $S$_NOR 


MVLS$V_OVERIDE )) 


IF .ACCESS EQL SS$_NOVOLACC OR .ACCESS EQL SSS$_NOFILACC 
THEN ERR_EXITT.ACCESS); 


IF NOT .ACCESS THEN KERNEL_CALL(SET_FILE_ACCESS); 
' now treat append case uniquely 
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; 409 7 $ IF ( NOT .FIBCFIBSV_UPDATE)) 
; 4610 7 AND 
3; 611 7 -F IBCF IBSV_WRITE) 
: a16 7 AN 
: 41 79 (,ACCESS_CALL) | 
; 4146 79 THEN 
; 415 796 BEGIN ' append case 
: £1$ re? SPACE_EOF(); ! Left at absolute end of file 
3 418 3 IF NOT LIBSCVT_DTB(EO1$S_BLOCKCNT, HDR1CEO1$T_BLOCKCNT], BLOCK_COUNT) | 
3 420 ERR_EXIT(SS$_BLOCKCNTERR); | 
3 4 é a} ! read header of next file | 
: 424 0 LABELADDR = .HDR1 + SCRATCH_OFFSET; ! read into scratch area | 
3 426 808 IF NOT READ_ BLOCK(.LABELADDR, ANSI_LBLSZ) 
: 428 O80 4 GIN : B+. logical end of volume set | 
3; 4 0808 4 SPACE double tape mark is logical end of tape 
; 4 0809 4 KERNEC TONLE CRECALC si Ree. .BLOCK_ COUNT); | 
; 431 0810 4 RETUR 
; 4 ¢ 0811 END; 
Py 43 Bag 
; 434 081 IF .LABELADDRCHD1SL_HDILID] NEQ ‘HDR1' 
; $32 Baie THEN ERR_EXITTSS$_TAPEPOSLOST); | 
: rt 14 pete ' going to overlay file 
: 439 0818 IF NOT EXPIRED(LABELADDRCHD1$T EXPIREDTJ) | 
; 440 0819 THEN ERR_EXIT(SS$_FILNOTEXP) ; | 
3; 441 0820 
: 44 0831 SPACE_TM(- 
; 44 08 ¢ Spor CALE CRECALC. ST_REC, .BLOCK_COUNT); 
3 446 08 RETUR 
3: (445 0824 
3 446 0825 END; ! end of append case 
: 447 Bas8 | 
; 448 082 ! if about to write current file check expiration 
; 4469 0828 | 
; 450 4 9 IF .FIBCFIBSV_WRITEJ 
3 $3) 8 , THEN | 
; 433 os 3 IF NOT EXPIRED(HDRICHD1$T_EXPIREDT)) 
; 435 0834 ERR_EXIT(SS$_FILNOTEXP) ; 

: 45 0836 1 END; ! end of routine 


-EXTRN EXPIRED, (IBSCVI_DIB 
EXTRN SPACE EOF, SPACE-TM 
-EXTRN READ BLOCK, HDRi 

“EXTRN LOCAC_FIB, SYSSMTACCESS 
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04 00181 148: 


; Routine Size: 306 bytes, Routine Base: S$CODE$ + 0089 
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MTAACP.SRCJCHKACC 832; 
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16-Sep-1984 02:09:19 AX-11 Bliss-32 V4.0- 
18-808- 1 3be 95:08:42 EMTAACP. SRe CHKACC.B3 

ROUTINE SET_FILE_ACCESS : COMMON_CALL NOVALUE = 

1++ 

FUNCTIONAL DESCRIPTION: 
his routine updates the VCB file access bit to say that the user 
has complete access to the file. 


CALLING SEQUENCE: 
SET_FILE_ACCESS called in kernel mode 


INPUT PARAMETERS: 

nore 
IMPLICIT INPUTS: 

CURRENT_VCB = address of current volume control block 
OUTPUT PARAMETERS: 

None 
IMPLICIT OUTPUTS: 

VCB FIL_ACCESS bit is set. 
ROUTINE VALUE: 

None 
SIDE EFFECTS: 

None 
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BEGIN 
EXTERNAL REGISTER 
COMMON_REG; 


CURRENT_VCBCVCBSV_FIL_ACCESS] = 1; 
ND; ! end of routine 


0000 00000 SET_FILE_ACCESS: 
WORD Save oote ing 
2D =AB 40 8F 88 0000 BISB2 #64, 45(CURRENT_VCB) 
04 0000 RET 


8 bytes, Routine Base: S$CODE$ + 0188 
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0880 1 


a9 


15 
CHKAC ibese -1984 02:09:19 AX-11 Bliss-32 V4.0-742 Page 16 
¥06-560 12-8 08=1 Re 95:08 ha EMTAACP SRE CHKACC.832;1 ° (7) 
: pe 0 e } ROUTINE RECALC_ST_REC (BLOCK_COUNT) : COMMON_CALL NOVALUE = 
: 06 6 § 1 44 
3; 0 Be 1! 
; 508 5 1 ! FUNCTIONAL DESCRIPTION: 
; 5309 58 . 3 This routine updates the start record count to include those 
; 219 ert : records in the file that were previously written. | 
3 21§ 0889 1 ! CALLING SEQUENCE: 
$ 217 peay ! RECALC_ST_REC(ARG1), called in kernel mode 
; 515 bes 1 ! INPUT PARAMETERS: 
s O16 vs EF ARG1 = number of blocks previously written 
; 517 0894 1! 
; 518 0895 1 ! IMPLICIT INPUTS: 
; 238 Bane : CURRENT_VCB = address of current volume control block 
3 «Se. 0898 1 ! OUTPUT PARAMETERS: 
3 See 0899 1! None 
;° oy 0900 1! 
; 526 0901 1 ! IMPLICIT OUTPUTS: 
; 3s? b308 : Start record number updated to reflect previously written records 
H 255 0904 1 ! ROUTINE VALUE: 
: 528 0905 1! None 
3; $29 0906 1! 
; 530 0907 1 ! SIDE EFFECTS: 
s $31 0908 1! None 
5 236 0909 1! 
3 287 0910 1 ! USER ERRORS: 
; 5 0911 1! None 
s 339 Bag 7 3 
s 336 091 1 !e- 
“Wm og 0914 1 
; 533 0915 2 BEGIN 
; 539 0916 2 
; 540 0917 2 EXTERNAL REGISTER 
3 3) 944 COMMON_REG; 
s 208 0920 CURRENT PL CER, FS RECORDS = .CURRENT_VCBCVCB$L_ST_RECORD] - 
3: 544 0921 -BLOCK_COUNT; : 
3; «4545 0922 1 END; ' end of routine 
| 
0000 00000 RECALT_ST_REC: ; 
-@ORD Save nothing ; 0881 
30 AB 04 AC C2 0000 SUBL2 BLOCK_COUNT, 48(CURRENT_VCB) 3; 0921 
04 0000 RET : 0922 


3; Routine Size: 8 bytes, Routine Base: $CODES + 01C3 


: 546 Osi 1 END 
3 347 0924 1 


: | 


CHKACC 1984 02:09:19 AX-11 Bliss-32 V4.0-742 Page - Cl 
v04-000 - 71382 eae MTAACP.SRCJCHKACC.832;1 . (7) | 
; 548 0925 0 ELUDOM 
; PSECT SUMMARY | 
: Name Bytes Attributes 

: SCODES 459 NOVEC.NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

: Library Statistics 

: coccecece Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

; -$255$DUA28: CSYSLIBILIB.L32;1 18619 37 0 1000 00:01.8 

: COMMAND QUALIFIERS 


3; Size: 459 code + 0 data bytes 
3; Run Time: 00:13.5 

3; Elapsed Time: 00:51.6 

3 Lines/CPU Min: 409 

3; Lexemes/CPU-Min: 19364 

; pe | Used: 145 pages 

; Compilation Complete 
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; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:CHKACC/OBJ=OBJ$:CHKACC MSRC$:CHKACC/UPDATE=(ENH$: CHKACC) 
| 
| 
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